home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs05.d81
/
jacket.c64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
4KB
|
152 lines
100 REM *******************************
110 REM **FOX VALLEY '64' USERS GROUP**
120 REM ****** DISK JACKET MAKER ******
130 REM ****** BY DAVE WOOTEN *********
140 REM ****** JULY 30, 1984 **********
150 REM *******************************
160 REM: FOR NON-EPSON THREE COLUMN JACKET CHANGE P$ TO CORRECT
170 REM PRINTER CONTROL CODE IN LINE #240
180 REM ** PR$ - PRINTER TYPE
190 REM ** P$ - PRINTER CONTROL CODE :
200 DIMA$(200),B$(200),C$(200)
210 POKE53280,6:POKE53281,0
220 PRINT"[147] DISK JACKET MAKER " "
230 [153]" EWAITPSON OR CWAITOMMODORE PRINTER?";
240 [161]PR$:[139]PR$[178]""[167]240
250 [139]PR$[178]"E"[167][153]" EPSON ":P$[178][199](15):[137]280
260 [139]PR$[178]"C"[167][153]" COMMODORE ":[137]280
270 [137]220
280 [153]" OWAITNE OR TWAITWO DISK SIDES?";
290 [161]SI$:[139]SI$[178]""[167]290
300 [139]SI$[178]"T"[167][153]" TWO SIDES ":[137]330
310 [139]SI$[178]"O"[167][153]" ONE SIDE ":[137]330
320 [137]220
330 [153][163]5)"INSERT DISK AND PRESS RETURN";
340 [161]R$:[139]R$[178]""[167]340
350 [153]"LOAD WORKING "
360 [153]" DO NOT TOUCH DRIVE"
370 [141]500
375 [153]"LOAD PRINTING "
376 [153]" DO NOT TOUCH PRINTER"
380 [139]PR$[178]"E"[167][141]720:[137]400
390 [141]930
400 [139]SI$[178]"O"[167][141]1450:[141]1530:[137]450
410 [153]"TURN DISK OVER - PRESS RETURN"
420 [161]R$:[139]R$[178]""[167]420
430 [153]"LOAD WORKING "
440 [153]"DO NOT TOUCH DRIVE":[141]500
442 [153]"LOAD PRINTING "
444 [153]"DO NOT TOUCH PRINTER"
445 [141]1140:[141]1530
450 [153]" MAKE ANOTHER JACKET?";
460 [161]R$:[139]R$[178]""[167]460
470 [139]R$[178]"Y"[167][138]
480 [128]
490 [143] ** GET DIRECTORY ENTRIES ** :
500 [159]1,8,0,"$0"
510 I[178]0:N$[178][199](0)
520 [129]N[178]1[164]25:SP$[178]SP$[170]" ":[130]
530 [161]#1,D$,D$
540 :
550 [143] ** BEGIN MAIN LOOP **
560 I[178]I[170]1
570 [161]#1,D$,D$
580 :
590 [139]D$[178]""[167]700
600 :
610 [161]#1,A$(I),B$(I)
620 C$(I)[178][196]([198](A$(I)[170]N$)[170][198](B$(I)[170]N$)[172]256)
630 :
640 [161]#1,D$
650 :
660 [139]D$[178]""[167]560
670 :
680 C$(I)[178]C$(I)[170]D$
690 C$(I)[178][200](C$(I),25):[137]640
700 [160]1
710 [142]
720 [143] *** EPSON PRINT ROUTINE *** :
730 [129]N[178]1[164]118:DA$[178]DA$[170]"-":[130]
740 [129]N[178]1[164]79:CN$[178]CN$[170]" ":[130]
750 [129]N[178]1[164]98:BL$[178]BL$[170]"-":[130]
760 LS$[178]"! ! ":RS$[178]" ! !"
770 [159]4,4
780 [152]4,P$;DA$;" CUT"
790 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);[199](20);
800 [152]4,P$;"SIDE 1";[201](RS$,18)
810 [152]4,LS$;CN$;RS$
820 [129]J[178]2[164]I [169]3
830 [139]C$(J)[178]""[167]C$(J)[178]SP$
840 [139]C$(J[170]1)[178]""[167]C$(J[170]1)[178]SP$
850 [139]C$(J[170]2)[178]""[167]C$(J[170]2)[178]SP$
860 [152]4,LS$;C$(J);" ";C$(J[170]1);" ";C$(J[170]2);RS$
870 LC[178]LC[170]1
880 [130]
890 [129]L[178]1[164]21[171]LC:[152]4,LS$;CN$;RS$:[130]
900 [152]4,DA$;" FOLD"
910 LS$[178]" ! ":RS$[178]" !"
920 [160]4:[142]
930 [143] *** COMMODORE PRINT ROUTINE ***
940 [129]N[178]1[164]69:DA$[178]DA$[170]"-":[130]
950 [129]N[178]1[164]52:CN$[178]CN$[170]" ":[130]
960 [129]N[178]1[164]56:BL$[178]BL$[170]"-":[130]
970 [159]4,4
980 [139]C$(J)[178]""[167]C$(J)[178]SP$
990 [152]4,P$;DA$;" CUT"
1000 LS$[178]"! ! ":RS$[178]" ! !"
1010 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);
1020 [152]4,[199](15)[199](146)" SIDE 1 "RS$
1030 [152]4,LS$;CN$;RS$
1040 [129]J[178]2[164]I [169]2
1050 [139]C$(J)[178]""[167]C$(J)[178]SP$
1060 [139]C$(J[170]1)[178]""[167]C$(J[170]1)[178]SP$
1070 [152]4,LS$;C$(J);" ";C$(J[170]1);RS$
1080 LC[178]LC[170]1
1090 [130]
1100 [129]L[178]1[164]21[171]LC:[152]4,LS$;CN$;RS$:[130]
1110 [152]4,DA$;" FOLD"
1120 LS$[178]" !":RS$[178]" !"
1130 [160]4:[142]
1140 [143] *** SIDE 2 PRINT ROUTINE *** :
1150 LC[178]0
1160 [139]PR$[178]"E"[167]1290
1170 [159]4,4:[152]4,LS$;CN$;RS$
1180 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);
1190 [152]4,[199](15);[199](146)" SIDE 2 "RS$
1200 [152]4,LS$;CN$;RS$
1210 [129]J[178]2[164]I [169]2
1220 [139]C$(J[170]1)[178]""[167]C$(J[170]1)[178]SP$
1230 [152]4,LS$;C$(J);" ";C$(J[170]1);RS$
1240 LC[178]LC[170]1
1250 [130]
1260 [129]L[178]1[164]25[171]LC:[152]4,LS$;CN$;RS$:[130]
1270 [152]4,[163]7);:[152]4,BL$;" CUT"
1280 [152]4:[160]4:[137]1440
1290 [143] *** EPSON SIDE 2 *** :
1300 [159]4,4:[152]4,LS$;CN$;RS$
1310 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);[199](20);
1320 [152]4,P$;"SIDE 2";[201](RS$,18)
1330 [152]4,LS$;CN$;RS$
1340 [129]J[178]2[164]I [169]3
1350 [139]C$(J)[178]""[167]C$(J)[178]SP$
1360 [139]C$(J[170]1)[178]""[167]C$(J[170]1)[178]SP$
1370 [139]C$(J[170]2)[178]""[167]C$(J[170]2)[178]SP$
1380 [152]4,LS$;C$(J);" ";C$(J[170]1);" ";C$(J[170]2);RS$
1390 LC[178]LC[170]1
1400 [130]
1410 [129]L[178]1[164]25[171]LC:[152]4,LS$;CN$;RS$:[130]
1420 [152]4,[163]10);:[152]4,BL$;" CUT"
1430 [152]4:[160]4
1440 [142]
1450 [143] *** BLANK SIDE 2 ***
1460 [159]4,4
1470 [129]C[178]1[164]27:[152]4,LS$;CN$;RS$:[130]
1480 [139]PR$[178]"E"[167]1500
1490 [152]4," "BL$;" CUT":[137]1510
1500 [152]4,[163]10);:[152]4,BL$;" CUT"
1510 [152]4:[160]4
1520 [142]
1530 [143] ** FORM FEED ** :
1540 [159]4,4:[152]4,[199](12):[160]4
1550 [142]